home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / Adroff2 / Examples / report#1.ad (.txt) < prev    next >
Encoding:
NeXT TypedStream Data  |  1992-03-17  |  2.8 KB  |  76 lines
  1. typedstream
  2. Window
  3.     Responder
  4. Object
  5.     @@ifss**s
  6. TextView
  7. ScrollView
  8. ClipView
  9. ciifffcfffs
  10. [2105c]{\rtf0\ansi{\fonttbl\f0\fswiss Helvetica;}
  11. \margl40
  12. \margr40
  13. \pard\tx2880\tx5040\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480\f0\b0\i0\ul0\fs24 \
  14. Title    1 time per    Report\
  15. Column Headings    1 time per    Report\
  16. deptCode    1 time per    Commission\
  17. salesPersonName    1 time per    Commission\
  18. monthName    1 time per    Commission\
  19. commAmount    1 time per    Commission\
  20. "Total for Company "    1 time per    Report\
  21. reportTotal    1 time per    Report\
  22. ENTITY    OCCURS    ENTITY\
  23. Report    1 time only.\
  24. Commission    many times per    Report\
  25. \pard\tx3200\tx6500\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 .s\
  26. \pard\tx3200\tx3720\tx4260\tx4800\tx5320\tx7640\tx9040\tx11080\tx11480\tx15480 Commission Report #1\
  27. Title\
  28. Column Headings\
  29. Commission\
  30. deptCode\
  31. salesPersonName\
  32. monthName\
  33. commAmount\
  34. "Total for Company "    \
  35. reportTotal\
  36. \pard\tx2880\tx5040\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 \
  37. \pard\tx3200\tx6500\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 .s\
  38. \pard\tx3200\tx3720\tx4260\tx4800\tx5320\tx7640\tx9040\tx11080\tx11480\tx15480 Print Commission Report #1\
  39. Print Title\
  40. Print Column Headings\
  41. For each Commission\
  42. Print deptCode\
  43. Print salesPersonName\
  44. Print monthName\
  45. Print commAmount\
  46. Print"Total Commissions "    \
  47. Print reportTotal\
  48. \pard\tx520\tx1060\tx1600\tx2120\tx2660\tx3200\tx3720\tx4260\tx4800\tx5320 \
  49. \pard\tx2880\tx5040\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 \
  50. \pard\tx3200\tx6500\tx7640\tx9040\tx9580\tx10720\tx11080\tx11480\tx12140\tx15480 .s\
  51. \pard\tx3200\tx3720\tx4260\tx4800\tx5320\tx7640\tx9040\tx11080\tx11480\tx15480 Print Commission Report #1\
  52. Print Title\
  53. Print Column Headings\
  54. Read deptCode, salespersonName, monthName, salesAmount\
  55. reportTotal = 0\
  56. While not EOF     (Month)\
  57. prevMonthname = monthName\
  58. Print deptCode\
  59. Print salesPersonName\
  60. Print monthName\
  61. Calculate commAmount\
  62. Print commAmount\
  63. monthtotal = monthTotal + commAmount\
  64. Read deptCode, salespersonName, monthName, salesAmount\
  65. Print"Total for Company "    \
  66. Print reportTotal\
  67. NXCursor
  68. NXImage
  69. NXibeam
  70. Scroller
  71. Control
  72. _doScroller:
  73. NXRulerView
  74. @@@ffs
  75. 8/private/Net/apollo/Users/jrett/Book/CommRpt/report#1.ad
  76.